home *** CD-ROM | disk | FTP | other *** search
/ Top Secret 16 / Top Secret 16 (Disk 2 of 2).adf / Pages / AC.lsourced2 / AC.lsourced2
Encoding:
Text File  |  1994-12-02  |  25.2 KB  |  1,409 lines
  1.  
  2. **    ²RASTER LIGHTSOURCED VECTOR¹
  3. **    ³CODED BY CRADON/MATRIX¹
  4. **    ASM-ONE FORMAT
  5.  
  6. *³******************************************************************************¹
  7.  
  8.     SECTION    A,CODE_C
  9.  
  10. START    MOVEM.L    D0-A6,-(A7)
  11.     MOVE.W    $DFF01C,INTENA
  12.     MOVE.W    $DFF002,DMACON
  13.     MOVE.W    $DFF010,ADKCON
  14.     MOVE.W    #%0111111111111111,$DFF096
  15.     MOVE.W    #%0111111111111111,$DFF09A
  16.     MOVE.W    #%0111111111111111,$DFF09C
  17.     JSR    INITRAS
  18.     JSR    INITCOL
  19.     MOVE.L     $6C,OLDIRQ
  20.     MOVE.L     #MYIRQ,$6C
  21.     MOVE.W    #%1000001111000000,$DFF096
  22.     MOVE.W     #%1100000000110000,$DFF09A
  23.     JSR    INITCOP
  24. LOOP    BTST    #6,$BFE001
  25.     BNE.B    LOOP
  26. ENDE    MOVE.W    #%0111111111111111,$DFF096
  27.     MOVE.W    #%0111111111111111,$DFF09A
  28.     MOVE.W    #%0111111111111111,$DFF09C
  29.     MOVE.L    OLDIRQ(PC),$00006C
  30.     MOVE.W    DMACON(PC),D0            
  31.     OR.W    #$8000,D0
  32.     MOVE.W    D0,$DFF096
  33.     MOVE.W    ADKCON(PC),D0
  34.     OR.W    #$8000,D0
  35.     MOVE.W    D0,$DFF09E
  36.     MOVE.W    INTENA(PC),D0            
  37.     OR.W    #$C000,D0
  38.     MOVE.W    D0,$DFF09A
  39.     MOVE.W    #0,$DFF088
  40.     MOVEM.L    (A7)+,D0-A6
  41.     RTS
  42.  
  43. ** ²MAKE COPPERLIST SELFACTIVATE¹ ***********************************************
  44.  
  45. INITCOP    MOVE.L    #COPPER1,D0
  46.     LEA.L    ADRESS2,A0
  47.     MOVE.W    D0,6(A0)
  48.     SWAP    D0
  49.     MOVE.W    D0,2(A0)
  50.     LEA.L    NUMBER,A0
  51.     MOVE.W    PLANER(PC),D0
  52.     ROR.W    #4,D0
  53.     OR.W    D0,2(A0)
  54.     MOVE.L    #COPPER1,$DFF084
  55.     MOVE.B    #$00,$DFF08A
  56.     RTS
  57.  
  58. ** ²INIT RASTERLINES IN COPPERLIST¹ *********************************************
  59.  
  60. INITRAS    LEA.L    RASTER,A0
  61.     MOVE.W    rasterlines,D0
  62.     MOVE.W    STARTRAST,D2
  63.  
  64. RASLOP    MOVE.W    D2,(A0)+
  65.     MOVE.W    #$FF00,(A0)+
  66.     MOVE.W    #$0182,(A0)+
  67.     MOVE.W    #$0000,(A0)+
  68.     MOVE.W    #$0184,(A0)+
  69.     MOVE.W    #$0000,(A0)+
  70.     MOVE.W    #$0188,(A0)+
  71.     MOVE.W    #$0000,(A0)+
  72.     ADD.W    #$100,D2
  73.     SUBQ.W    #1,D0
  74.     BNE    RASLOP
  75.     RTS    
  76.  
  77. ** ²UPDATE RASTER COLOURS¹ ******************************************************
  78.  
  79. RASTCOL    MOVEM.L    D0-A6,-(A7)
  80.     CMP.W    #0,D0
  81.     BEQ    FIRST
  82.     CMP.W    #1,D0
  83.     BEQ    SECOND
  84.     CMP.W    #2,D0
  85.     BEQ    THIRD
  86. RASOUT    MOVEM.L    (A7)+,D0-A6
  87.     RTS
  88.  
  89. FIRST    LEA.L    DESTIN(PC),A4
  90.     LEA.L    RASTER,A5
  91.     EXT.L    D2
  92.     DIVU    #12,D2
  93.     EXT.L    D2    
  94.     LSL.W    #1,D2
  95.     MOVE.w    rasterlines,D1
  96. WRITE0    MOVE.W    (A4,D2.W),6(A5)
  97.     ADD.L    #20,A4
  98.     ADD.L    #16,A5    
  99.     SUBQ.W    #1,D1
  100.     BNE    WRITE0
  101.     BRA.S    RASOUT
  102.  
  103. SECOND    LEA.L    DESTIN(PC),A4
  104.     LEA.L    RASTER,A5
  105.     EXT.L    D2
  106.     DIVU    #12,D2
  107.     EXT.L    D2    
  108.     LSL.W    #1,D2
  109.     MOVE.w    rasterlines,D1
  110. WRITE1    MOVE.W    (A4,D2.W),$A(A5)
  111.     ADD.L    #20,A4
  112.     ADD.L    #16,A5
  113.     SUBQ.W    #1,D1
  114.     BNE    WRITE1
  115.     BRA.S    RASOUT
  116.  
  117. THIRD    LEA.L    DESTIN(PC),A4
  118.     LEA.L    RASTER,A5
  119.     EXT.L    D2    
  120.     DIVU    #12,D2
  121.     EXT.L    D2
  122.     LSL.W    #1,D2
  123.     MOVE.w    rasterlines,D1
  124. WRITE2    MOVE.W    (A4,D2.W),$E(A5)
  125.     ADD.L    #20,A4
  126.     ADD.L    #16,A5    
  127.     SUBQ.W    #1,D1
  128.     BNE    WRITE2
  129.     BRA.W    RASOUT
  130.  
  131. ** ²RASTER COLOURS¹ *************************************************************
  132.  
  133. INITCOL    LEA.L    SOURCE(PC),A0
  134.     LEA.L    DESTIN(PC),A1
  135.     MOVE.W    RASTERLINES,D3
  136. COLMAIN    MOVE.W    (A0)+,D0
  137.     MOVEQ    #10,D2
  138. LOP    MOVE    D0,(A1)+
  139.     MOVE.W    D0,D1
  140.     AND.W    #$000F,D1
  141.     CMP.W    #$F,D1
  142.     BEQ    .GREEN
  143.     ADDQ    #1,D1
  144.     AND.W    #$0FF0,D0
  145.     OR    D1,D0
  146. .GREEN    MOVE.W    D0,D1
  147.     AND.W    #$00F0,D1
  148.     LSR.W    #4,D1
  149.     CMP.W    #$F,D1
  150.     BEQ    .RED
  151.     ADDQ    #1,D1
  152.     LSL.W    #4,D1
  153.     AND.W    #$0F0F,D0
  154.     OR    D1,D0
  155. .RED    MOVE.W    D0,D1
  156.     AND.W    #$0F00,D1
  157.     LSR.W    #8,D1
  158.     CMP.W    #$F,D1
  159.     BEQ    .NEXT
  160.     ADDQ    #1,D1
  161.     LSL.W    #8,D1
  162.     AND.W    #$00FF,D0
  163.     OR    D1,D0
  164. .NEXT    SUBQ.W    #1,D2
  165.     BNE    LOP
  166.     SUBQ.W    #1,D3
  167.     BNE    COLMAIN
  168.     RTS
  169.  
  170. *******************************************************************************
  171. ****************************** ²FILLED VECTOR¹ **********************************
  172. *******************************************************************************
  173.  
  174. VECTOR    MOVE.W    #320,GLOBALXMIN
  175.     MOVE.W    #0,GLOBALXMAX
  176.     MOVE.W    #256,GLOBALYMIN
  177.     MOVE.W    #0,GLOBALYMAX
  178.     JSR    ANGLES
  179.     LEA.L    FIGURE,A1
  180.     LEA.L    SIN_TABLE,A2
  181.     LEA.L    COS_TABLE,A3
  182. VLOOP    MOVE.L    SCREEN_ADRESS,A0
  183.     MOVE.W    (A1)+,D0
  184.     CMP.W    #$FFFF,D0
  185.     BEQ.W    VECOUT
  186.     MOVE.W    (A1)+,D1
  187.     MOVE.W    (A1)+,D2
  188.     BSR.W    NORMAL        ; ³ROTATE VECTORNORMAL (0-XN,0-YN,0-ZN)¹
  189.     MOVE.W    (A1)+,D3
  190.     CMP.W    D3,D2        ; ³FRONTSIDE OF PLANE?¹
  191.     BGT.S    .PLANE
  192.     MOVE.W    (A1)+,D0
  193.     EXT.L    D0
  194.     LSL.W    #3,D0
  195.     ADDQ    #2,D0
  196.     ADD.L    D0,A1        ; ³POINT AT NEXT PLANE¹
  197.     BRA.S    VLOOP
  198. .PLANE    MOVE.W    (A1)+,COUNTER    ; ³NUMBER OF POINTS¹
  199.     MOVE.W    (A1)+,D0    ; ³SELECTED COLOUR¹
  200.     MOVE.W    #10240,D1
  201.     MULU    D0,D1
  202.     ADD.L    D1,A0
  203.  
  204.     jsr    rastcol
  205.  
  206. LINES    MOVE.W    (A1)+,D0
  207.     MOVE.W    (A1)+,D1
  208.     MOVE.W    (A1)+,D2
  209.     SUB.W    XCENTER(PC),D0    ; ³CENTER OBJECT¹
  210.     SUB.W    YCENTER(PC),D1
  211.     SUB.W    ZCENTER(PC),D2
  212.     BSR.B    ROTATE        ; ³ROTATE 3D POINT¹
  213.     ADD.W    ZCENTER(PC),D2
  214.     JSR    CONVERT        ; ³CONVERT FROM 3D TO 2D¹
  215.     ADD.W    XCENTER(PC),D0
  216.     ADD.W    YCENTER(PC),D1
  217.     JSR    EXTREM        ; ³NOTE PLANE MAX AND MIN¹
  218.     JSR    LINE        ; ³DRAW LINE FROM LAST POINT¹
  219.     SUB.W    #1,COUNTER
  220.     BNE.B    LINES
  221.     JSR    FILL        ; ³FILL PLANE¹
  222.     JSR    GLOBAL        ; ³NOTE GLOBAL EXTRIEMES (CLEAR)¹
  223.     MOVE.W    #256,YMIN    ; ³RESET FOR NEXT PLANE¹
  224.     MOVE.W    #0,YMAX
  225.     MOVE.W    #320,XMIN
  226.     MOVE.W    #0,XMAX
  227.     BRA.W    VLOOP        ; ³WORK ON NEXT PLANE¹
  228. VECOUT    RTS
  229.  
  230. ** ²ROTATE¹ *********************************************************************
  231.  
  232. ROTATE    MOVE.W    XVINKEL(PC),D5            ; X ANGLE
  233.     MOVE.W    YVINKEL(PC),D6            ; Y ANGLE
  234.     MOVE.W    ZVINKEL(PC),D7            ; Z ANGLE
  235.     LSL.W    #1,D5                ; X ANGLE *2
  236.     LSL.W    #1,D6                ; Y ANGLE *2
  237.     LSL.W    #1,D7                ; Z ANGLE *2
  238.     MOVE.W    (A3,D5.W),D3            ; COS(XGRAD)
  239.     MOVE.W    (A2,D5.W),D4            ; SIN(XGRAD)
  240.     MULS    D1,D3                ; Y*COS(XGRAD)
  241.     MULS    D2,D4                ; Z*SIN(XGRAD)
  242.     SUB.L    D4,D3                ; Y*COS(XGRAD) - Z*SIN(XGRAD)
  243.     LSL.L    #2,D3                ; 4*(Y*COS(XGRAD)-Z*SIN(XGRAD))
  244.     MOVE.L    D3,Y1                ; Y-COORDINATE AROUND X AXIS
  245.     MOVE.W    (A2,D5.W),D3            ; SIN(XGRAD)
  246.     MOVE.W    (A3,D5.W),D4            ; COS(XGRAD)
  247.     MULS    D1,D3                ; Y*SIN(XGRAD)
  248.     MULS    D2,D4                ; Z*COS(XGRAD)
  249.     ADD.L    D4,D3                ; Y*SIN(XGRAD) + Z*COS(XGRAD)
  250.     LSL.L    #2,D3                ; 4*(Y*SIN(XGRAD)+Z*COS(XGRAD))
  251.     MOVE.L    D3,Z1                ; Z-COORDINATE AROUND X AXIS
  252.     MOVE.W    (A3,D6.W),D3            ; COS(YGRAD)
  253.     MOVE.W    (A2,D6.W),D4            ; SIN(YGRAD)
  254.     MULS    D0,D3                ; X*COS(YGRAD)
  255.     MULS    Z1(PC),D4            ; Z*SIN(YGRAD)
  256.     SUB.L    D4,D3                ; X*COS(YGRAD) - Z*SIN(YGRAD)
  257.     LSL.L    #2,D3                ; 4*(X*COS(YGRAD)-Z*SIN(YGRAD))
  258.     MOVE.L    D3,X2                ; X-COORDINATE AROUND Y AXIS
  259.     MOVE.W    (A2,D6.W),D2            ; SIN(YGRAD)
  260.     MOVE.W    (A3,D6.W),D4            ; COS(YGRAD)
  261.     MULS    D0,D2                ; X*SIN(YGRAD)
  262.     MULS    Z1(PC),D4            ; Z*COS(YGRAD)
  263.     ADD.L    D4,D2                ; X*SIN(YGRAD) + Z*COS(YGRAD)
  264.     LSL.L    #2,D2                ; 4*(X*SIN(YGRAD)+Z*COS(YGRAD))
  265.     SWAP    D2                ; FAST DIVISION BY 65535
  266.     EXT.L    D2                ; Z-COORDINATE AROUND Y AND X
  267.     MOVE.W    (A3,D7.W),D0            ; COS(ZGRAD)
  268.     MOVE.W    (A2,D7.W),D4            ; SIN(ZGRAD)
  269.     MULS    X2(PC),D0            ; X*COS(ZGRAD)
  270.     MULS    Y1(PC),D4            ; Y*SIN(ZGRAD)
  271.     SUB.L    D4,D0                ; X*COS(ZGRAD) - Y*SIN(ZGRAD)
  272.     LSL.L    #2,D0                ; 4*(X*COS(ZGRAD)-Y*SIN(ZGRAD))
  273.     SWAP    D0                ; FAST DIVISION BY 65535
  274.     EXT.L    D0                ; X-COORDINATE AROUND Y AND Z
  275.     MOVE.W    (A2,D7.W),D1            ; SIN(ZGRAD)
  276.     MOVE.W    (A3,D7.W),D3            ; COS(ZGRAD)
  277.     MULS    X2(PC),D1            ; X*SIN(ZGRAD)
  278.     MULS    Y1(PC),D3            ; Y*COS(ZGRAD)
  279.     ADD.L    D3,D1                ; X*SIN(ZGRAD) + Y*COS(ZGRAD)
  280.     LSL.L    #2,D1                ; 4*(X*SIN(ZGRAD)+Y*COS(ZGRAD))
  281.     SWAP    D1                ; FAST DIVISION BY 65535
  282.     EXT.L    D1                ; Y-COORDINATE AROUND X AND Z
  283.     RTS
  284.  
  285. ** ²ROTATE PLANES VECTOR NORMAL¹ ************************************************
  286.  
  287. NORMAL    MOVE.W    XVINKEL(PC),D5
  288.     MOVE.W    YVINKEL(PC),D6
  289.     LSL.W    #1,D5
  290.     LSL.W    #1,D6
  291.     MOVE.W    (A2,D5.W),D3
  292.     MOVE.W    (A3,D5.W),D4
  293.     MULS    D1,D3
  294.     MULS    D2,D4
  295.     ADD.L    D4,D3
  296.     LSL.L    #2,D3
  297.     MOVE.L    D3,Z1                ; ³Z ROTATED AROUND X¹
  298.     MOVE.W    (A2,D6.W),D2
  299.     MOVE.W    (A3,D6.W),D4
  300.     MULS    D0,D2
  301.     MULS    Z1(PC),D4
  302.     ADD.L    D4,D2
  303.     LSL.L    #2,D2
  304.     SWAP    D2
  305.     EXT.L    D2                ; ³Z ROTATED AROUND Y AND X¹
  306.     RTS
  307.  
  308. ** ²CONVERT POINT FROM 3D TO 2D¹ ************************************************
  309.  
  310. CONVERT    MULS    ZOOM(PC),D0
  311.     MULS    ZOOM(PC),D1
  312.     DIVS    D2,D0
  313.     DIVS    D2,D1
  314.     RTS
  315.  
  316. ** ²DRAW LINE¹ ******************************************************************
  317.  
  318. LINE    TST.W    (A1)+                ; ³DRAW LINE FROM LAST POINT?¹
  319.     BNE.B    DRAW
  320.     MOVE.W    D0,LASTX            ; ³NO! THEN JUST SAVE THIS POINT¹
  321.     MOVE.W    D1,LASTY
  322.     RTS
  323. DRAW    MOVE.W    LASTX(PC),D2
  324.     MOVE.W    LASTY(PC),D3
  325.     MOVE.W    D0,LASTX
  326.     MOVE.W    D1,LASTY
  327.     EXG    D1,D2
  328.     CMP    D2,D3
  329.     BEQ.W    DRAWOUT
  330.     BPL.B    BLINE
  331.     EXG    D0,D1
  332.     EXG    D2,D3
  333. BLINE    SUBQ    #1,D3
  334.     MOVE    D1,D6
  335.     SUB    D0,D6
  336.     BMI.S    XL0
  337.     MOVE.W    D3,D7
  338.     SUB.W    D2,D7
  339.     BMI.S    XG0YL0
  340.     MOVE.W    D7,D5
  341.     SUB.W    D6,D5
  342.     BMI.S    O4
  343.     MOVE.B    #1,BLTC1
  344.     BRA.S    OCTOK
  345. O4    MOVE.B    #17,BLTC1
  346.     BRA.S    OCTOK
  347. XG0YL0    NEG.W    D7
  348.     MOVE.W    D7,D5
  349.     SUB.W    D6,D5
  350.     BMI.S    O6
  351.     MOVE.B    #5,BLTC1
  352.     BRA.S    OCTOK
  353. O6    MOVE.B    #25,BLTC1
  354.     BRA.S    OCTOK
  355. XL0    NEG.W    D6
  356.     MOVE.W    D3,D7
  357.     SUB.W    D2,D7
  358.     BMI.S    XL0YL0
  359.     MOVE.W    D7,D5
  360.     SUB.W    D6,D5
  361.     BMI.S    O5
  362.     MOVE.B    #9,BLTC1
  363.     BRA.S    OCTOK
  364. O5    MOVE.B    #21,BLTC1
  365.     BRA.S    OCTOK
  366. XL0YL0    NEG.W    D7
  367.     MOVE.W    D7,D5
  368.     SUB.W    D6,D5
  369.     BMI.S    O7
  370.     MOVE.B    #13,BLTC1
  371.     BRA.S    OCTOK
  372. O7    MOVE.B    #29,BLTC1
  373. OCTOK    MOVEQ    #0,D4
  374.     MOVE.W    D0,D4
  375.     AND.W    #15,D4
  376.     SWAP    D4
  377.     LSR.L    #4,D4
  378.     OR.W    #$B4A,D4
  379.     MOVEQ    #0,D3
  380.     LSL    #3,D2
  381.     MOVE    D2,D3
  382.     LSL    #2,D2
  383.     ADD    D2,D3
  384.     LSR    #3,D0
  385.     AND.B    #$FE,D0
  386.     ADD    D0,D3
  387.     ADD.L    A0,D3
  388.     TST    D5
  389.     BMI.S    XMAXI
  390.     EXG    D6,D7
  391.     NEG.W    D5
  392. XMAXI    MOVE.W    D6,D1
  393.     ADD.W    #1,D1
  394.     LSL.W    #6,D1
  395.     ADD.W    #2,D1
  396.     MOVE.W    D5,D0
  397.     ADD.W    D7,D0
  398.     LSL.W    #2,D7
  399.     MOVE.W    D0,D2
  400.     SUB.W    D6,D2
  401.     ADD.W    D2,D2
  402.     TST.W    D0
  403.     BPL.S    PLUS
  404.     OR.B    #64,BLTC1
  405. PLUS    ADD.W    D0,D0
  406.     EXT.L    D0
  407. WDRAW    BTST    #6,$DFF002
  408.     BNE.S    WDRAW
  409.     CLR    D6
  410.     MOVE.B    BLTC1(PC),D6
  411.     OR.W    #2,D6
  412.     MOVE.W    D6,$DFF042
  413.     MOVE.W    D4,$DFF040
  414.     CLR    $DFF070
  415.     MOVE.W    #$8000,$DFF074
  416.     MOVE.W    #$FFFF,$DFF072
  417.     MOVE.L    #$FFFFFFFF,$DFF044
  418.     MOVE.W    #40,$DFF060
  419.     MOVE.W    #40,$DFF066
  420.     MOVE.W    D7,$DFF062
  421.     MOVE.W    D2,$DFF064
  422.     MOVE.L    D3,$DFF048
  423.     MOVE.L    D3,$DFF054
  424.     MOVE.L    D0,$DFF050
  425.     MOVE.W    D1,$DFF058
  426. DRAWOUT    RTS
  427.  
  428. ** ²NOTE PLANE MIN AND MAX FOR THIS PLANE¹ **************************************
  429.  
  430. EXTREM    CMP.W    YMIN(PC),D1
  431.     BHI.B    NOYMIN
  432.     MOVE.W    D1,YMIN
  433. NOYMIN    CMP.W    YMAX(PC),D1
  434.     BLT.B    NOYMAX
  435.     MOVE.W    D1,YMAX
  436. NOYMAX    CMP.W    XMIN(PC),D0
  437.     BHI.B    NOXMIN
  438.     MOVE.W    D0,XMIN
  439. NOXMIN    CMP.W    XMAX(PC),D0
  440.     BLT.B    NOXMAX
  441.     MOVE.W    D0,XMAX
  442. NOXMAX    RTS
  443.  
  444. ** ²NOTE MIN AND MAX FOR ALL PLANES¹ ********************************************
  445.  
  446. GLOBAL    MOVE.W    XMIN(PC),D0
  447.     CMP.W    GLOBALXMIN(PC),D0
  448.     BHI.B    NOGLOBX
  449.     MOVE.W    D0,GLOBALXMIN
  450. NOGLOBX    MOVE.W    XMAX(PC),D0
  451.     CMP.W    GLOBALXMAX(PC),D0
  452.     BLT.B    GLOBOY1
  453.     MOVE.W    D0,GLOBALXMAX
  454. GLOBOY1    MOVE.W    YMIN(PC),D0
  455.     CMP.W    GLOBALYMIN(PC),D0
  456.     BHI.B    NOGLOBY
  457.     MOVE.W    D0,GLOBALYMIN
  458. NOGLOBY    MOVE.W    YMAX(PC),D0
  459.     CMP.W    GLOBALYMAX(PC),D0
  460.     BLT.B    GLOBOUT
  461.     MOVE.W    D0,GLOBALYMAX
  462. GLOBOUT    RTS
  463.  
  464. ** ²CLACULATE NEW VIEW ANGLE¹ ***************************************************
  465.  
  466. ANGLES    MOVE.W    YDELTA(PC),D0
  467.     ADD.W    D0,YVINKEL            ; ³NEW Y ANGLE¹
  468.     CMP.W    #512,YVINKEL
  469.     BLT.B    XANGLE
  470.     SUB.W    #512,YVINKEL
  471. XANGLE    MOVE.W    XDELTA(PC),D0
  472.     ADD.W    D0,XVINKEL            ; ³NEW X ANGLE¹
  473.     CMP.W    #512,XVINKEL
  474.     BLT.B    ZANGLE
  475.     SUB.W    #512,XVINKEL
  476. ZANGLE    MOVE.W    ZDELTA(PC),D0
  477.     ADD.W    D0,ZVINKEL            ; ³NEW Z ANGLE¹
  478.     CMP.W    #512,ZVINKEL
  479.     BLT.B    ANGLOUT
  480.     SUB.W    #512,ZVINKEL
  481. ANGLOUT    RTS
  482.  
  483. ** ²FLIP BETWEEN FRAMESBUFFERS¹ *************************************************
  484.  
  485. FLIP_SCREEN
  486.     MOVEQ    #6,D1
  487.     MOVEQ    #2,D2
  488.     MOVE.W    PLANER(PC),D3
  489.     LEA.L    PLANES,A0
  490.     CMP.L     #SCREEN1,SCREEN_ADRESS        
  491.     BEQ.S    FLIP_TO_SCREEN2
  492.     MOVE.L    #SCREEN2,D0
  493. FLIP1    MOVE.W    D0,(A0,D1.W)
  494.     SWAP     D0
  495.     MOVE.W    D0,(A0,D2.W)
  496.     SWAP    D0
  497.     ADDQ    #8,D1
  498.     ADDQ    #8,D2
  499.     ADD.L    #10240,D0
  500.     SUBQ.W    #1,D3
  501.     BNE.B    FLIP1
  502.     MOVE.L    #SCREEN1,SCREEN_ADRESS    
  503.     RTS
  504. FLIP_TO_SCREEN2
  505.     MOVE.L    #SCREEN1,D0
  506. FLIP2    MOVE.W    D0,(A0,D1.W)
  507.     SWAP     D0
  508.     MOVE.W    D0,(A0,D2.W)
  509.     SWAP    D0
  510.     ADDQ    #8,D1
  511.     ADDQ    #8,D2    
  512.     ADD.L    #10240,D0
  513.     SUBQ.W    #1,D3
  514.     BNE.B    FLIP2
  515.     MOVE.L    #SCREEN2,SCREEN_ADRESS
  516.     RTS
  517.  
  518. ** ²CLEAR SCREEN¹ ***************************************************************
  519.  
  520. CLEAR    CMP.W    #320,GLOBALXMIN
  521.     BEQ.W    CLROUT
  522.     MOVE.L    SCREEN_ADRESS(PC),D0
  523.     MOVE.W    GLOBALXMIN(PC),D1
  524.     MOVE.W    GLOBALXMAX(PC),D2
  525.     SUB.W    D1,D2                ; ³D2 = CLEAR WIDTH IN PIXELS¹
  526.     EXT.L    D1
  527.     LSR.W    #3,D1                ; ³D1 = LEFT PIXELS IN BYTES¹
  528.     SUBQ.W    #1,D1
  529.     ADD.L    D1,D0                ; ³D0 = START ADDRESS¹
  530.     LSR.W    #4,D2                ; ³D2 = CLEAR WIDTH IN WORDS¹
  531.     ADDQ.W    #3,D2                ; ³FOR SAFETY¹
  532.     MOVE.W    D2,D1
  533.     LSL.W    #1,D1                ; ³D1 = CLEAR WIDTH IN BYTES¹
  534.     MOVE.W    #40,D3
  535.     SUB.W    D1,D3                ; ³D3 = CLEAR MODULO¹
  536.     MOVE.W    GLOBALYMIN(PC),D4
  537.     SUB.W    SAFETY(PC),D4
  538.     MOVE.W    GLOBALYMAX(PC),D5
  539.     SUB.W    D4,D5                ; ³HIGHT¹
  540.     ADD.W    SAFETY(PC),D5
  541.     MULU    #40,D4
  542.     EXT.L    D4
  543.     ADD.L    D4,D0
  544.     LSL.W    #6,D5
  545.     OR.W    D5,D2                ; ³HIGHT AND WIDTH¹
  546. CLR1    BTST    #14,$DFF002
  547.     BNE.S    CLR1
  548.     MOVE.W    #$0100,$DFF040
  549.     MOVE.W    #$0000,$DFF042
  550.     MOVE.L    #$FFFFFFFF,$DFF044
  551.     MOVE.L    D0,$DFF054
  552.     MOVE.W    D3,$DFF066
  553.     MOVE.W    D2,$DFF058
  554.     ADD.L    #10240,D0            ; ³POINT ON NEXT PLANE¹
  555.     MOVE.W    PLANER(PC),D4
  556.     SUBQ    #1,D4
  557. CLR2    BTST    #14,$DFF002
  558.     BNE.S    CLR2
  559.     MOVE.L    D0,$DFF054
  560.     MOVE.W    D3,$DFF066
  561.     MOVE.W    D2,$DFF058
  562.     ADD.L    #10240,D0            ; ³POINT ON NEXT PLANE¹
  563.     SUBQ    #1,D4
  564.     BNE.B    CLR2
  565. CLROUT    RTS
  566.  
  567. ** ²BLITTER FILL (DESCENDING MODE)¹ *********************************************
  568.  
  569. FILL    MOVE.L    A0,D0                ; ³SCREEN ADDRESS¹
  570.     MOVE.W    YMAX(PC),D1
  571.     MULU    #40,D1
  572.     ADD.L    D1,D0                ; ³D0 = BUTTOM VERTICAL LINE¹
  573.     MOVE.W    #320,D2
  574.     SUB.W    XMAX(PC),D2
  575.     LSR.W    #3,D2                ; ³16 PIXEL PRECISION¹
  576.     EXT.L    D2
  577.     SUB.L    D2,D0                ; ³D0 = START ADDRESS¹
  578.     MOVE.W    XMAX(PC),D1
  579.     SUB.W    XMIN(PC),D1            ; ³D1 = FILL WIDTH IN PIXELS¹
  580.     LSR.W    #4,D1                ; ³D1 = FILL WIDTH IN WORDS¹
  581.     ADDQ.W    #4,D1
  582.     MOVE.W    D1,D2
  583.     MOVE.W    #40,D3                ; ³FULL SCREEN MODULO¹
  584.     LSL.W    #1,D2                ; ³D2 = FILL WIDTH IN BYTES¹
  585.     SUB.W    D2,D3                ; ³D3 = FILL MODULO¹¹
  586.     MOVE.W    YMAX(PC),D2
  587.     SUB.W    YMIN(PC),D2            ; ³D2 = HIGHT IN PIXELS¹
  588.     LSL.W    #6,D2                ; ³PLACE HIGHT ON RIGHT BITS¹
  589.     OR.W    D2,D1                ; ³D1 = FILL HIGHT AND WIDTH¹
  590. FREADY    BTST    #14,$DFF002
  591.     BNE.B    FREADY
  592.     MOVE.L    D0,$DFF050
  593.     MOVE.L    D0,$DFF054
  594.     MOVE.W    #$09F0,$DFF040            ; ³MINITERM D=A¹
  595.     MOVE.W    #%0000000000010010,$DFF042    ; ³EXCLUSIVE FILL (BIT 4)¹
  596.     MOVE.L    #$FFFFFFFF,$DFF044        ; ³MASKS¹
  597.     MOVE.W    D3,$DFF064            ; ³A MODULO¹
  598.     MOVE.W    D3,$DFF066            ; ³D MODULO¹
  599.     MOVE.W    D1,$DFF058            ; ³FILL HIGHT AND START ADDRESS¹
  600.     RTS
  601.  
  602. *******************************************************************************
  603. ** ²THIRD LEVEL INTERRUPT¹ ******************************************************
  604. *******************************************************************************
  605.  
  606. MYIRQ    MOVEM.L    D0-A6,-(A7)
  607.  
  608.     JSR    CLEAR
  609.     JSR    VECTOR
  610.     JSR    FLIP_SCREEN
  611.  
  612. wait    btst    #14,$dff002
  613.     bne.b    wait
  614.  
  615.     MOVE.W    #$20,$DFF09C
  616.     MOVEM.L    (A7)+,D0-A6         
  617.     RTE
  618.  
  619. ** ²DATA¹ ***********************************************************************
  620.  
  621. STARTRAST    DC.W    $5401
  622. RASTERLINES    DC.W    170
  623. ZOOM        DC.W    280
  624. SAFETY        DC.W    6        ; ³HIGH SAFETY TAKES MORE RASTER¹
  625. OLDIRQ        DC.L    0
  626. INTENA        DC.W    0
  627. DMACON        DC.W    0
  628. ADKCON        DC.W    0
  629. SCREEN_ADRESS    DC.L    SCREEN1
  630. ADJUST        DC.W    0
  631. PLANER        DC.W    3        ; ³ANTAL PLANER¹
  632. XCENTER        DC.W    159
  633. YCENTER        DC.W    128
  634. ZCENTER        DC.W    460
  635. COUNTER        DC.W    0
  636. XVINKEL        DC.W    256
  637. YVINKEL        DC.W    0
  638. ZVINKEL        DC.W    0
  639. YDELTA        DC.W    3
  640. XDELTA        DC.W    4
  641. ZDELTA        DC.W    1
  642. Y1        DC.L    0
  643. Z1        DC.L    0
  644. X2        DC.L    0
  645. LASTX        DC.W    0
  646. LASTY        DC.W    0
  647. YMIN        DC.W    256
  648. YMAX        DC.W    0
  649. XMIN        DC.W    320
  650. XMAX        DC.W    0
  651. GLOBALYMIN    DC.W    120
  652. GLOBALYMAX    DC.W    140
  653. GLOBALXMIN    DC.W    150
  654. GLOBALXMAX    DC.W    170
  655. BLTC1        DC.B    0
  656.         EVEN
  657.  
  658. SOURCE    DC.W    $0000,$0100,$0210,$0320,$0430,$0540,$0650,$0760,$0870,$0980
  659.     DC.W    $0A90,$0BA0,$0C90,$0B80,$0A70,$0960,$0850,$0740,$0630,$0520
  660.     DC.W    $0410,$0300,$0100,$0100
  661.  
  662.     DC.W    $0001,$0002,$0003,$0004,$0005,$0006,$0007,$0008,$0009,$000A
  663.     DC.W    $000B,$000C,$000B,$000A,$0009,$0008,$0007,$0006,$0005,$0004
  664.     DC.W    $0003,$0002,$0001,$0000
  665.  
  666.     DC.W    $0111,$0222,$0333,$0444,$0555,$0666,$0777,$0888,$0999,$0AAA
  667.     DC.W    $0BBB,$0CCC,$0BBB,$0AAA,$0999,$0888,$0777,$0666,$0555,$0444
  668.     DC.W    $0333,$0222,$0111,$0000
  669.  
  670.     DC.W    $0100,$0200,$0301,$0402,$0503,$0604,$0705,$0806,$0907,$0A08
  671.     DC.W    $0B09,$0C0A,$0B09,$0A08,$0907,$0806,$0705,$0604,$0503,$0402
  672.     DC.W    $0301,$0200,$0100,$0000
  673.  
  674.     DC.W    $0010,$0020,$0030,$0040,$0050,$0060,$0070,$0080,$0090,$00A0
  675.     DC.W    $00B0,$00C0,$00B0,$00A0,$0090,$0080,$0070,$0060,$0050,$0040
  676.     DC.W    $0030,$0020,$0010,$0000
  677.  
  678.     DC.W    $0001,$0002,$0013,$0024,$0035,$0046,$0057,$0068,$0079,$008A
  679.     DC.W    $009B,$00AC,$009B,$008A,$0079,$0068,$0057,$0046,$0035,$0024
  680.     DC.W    $0013,$0002,$0001,$0000
  681.  
  682.     DC.W    $0001,$0002,$0103,$0204,$0305,$0406,$0507,$0608,$0709,$090A
  683.     DC.W    $0A0B,$090C,$080B,$070A,$0609,$0508,$0407,$0306,$0205,$0104
  684.     DC.W    $0003,$0002,$0001,$0000
  685.  
  686. DESTIN    BLK.W    170*200,$0000    ; RASTERLINES * 80
  687.  
  688. ** ²OBJECT DATA¹ ****************************************************************
  689.  
  690. FIGURE    DC.W    0,-100,0,19,5,2
  691.     DC.W    79,208,380,0
  692.     DC.W    79,208,540,1
  693.     DC.W    239,208,540,1
  694.     DC.W    239,208,380,1
  695.     DC.W    79,208,380,1
  696.     DC.W    0,100,0,19,5,2
  697.     DC.W    79,48,380,0
  698.     DC.W    79,48,540,1
  699.     DC.W    239,48,540,1
  700.     DC.W    239,48,380,1
  701.     DC.W    79,48,380,1
  702.     DC.W    0,0,100,19,5,0        ; ³CUBE¹
  703.     DC.W    79,48,380,0
  704.     DC.W    79,208,380,1
  705.     DC.W    239,208,380,1
  706.     DC.W    239,48,380,1
  707.     DC.W    79,48,380,1
  708.     DC.W    100,0,0,19,5,1    
  709.     DC.W    79,48,540,0
  710.     DC.W    79,208,540,1
  711.     DC.W    79,208,380,1
  712.     DC.W    79,48,380,1
  713.     DC.W    79,48,540,1
  714.     DC.W    -100,0,0,19,5,1    
  715.     DC.W    239,48,540,0
  716.     DC.W    239,208,540,1
  717.     DC.W    239,208,380,1
  718.     DC.W    239,48,380,1
  719.     DC.W    239,48,540,1
  720.     DC.W    0,0,-100,19,5,0
  721.     DC.W    79,48,540,0
  722.     DC.W    79,208,540,1
  723.     DC.W    239,208,540,1
  724.     DC.W    239,48,540,1
  725.     DC.W    79,48,540,1
  726.     DC.W    $FFFF
  727.  
  728.     SECTION    B,DATA_C
  729.  
  730. ** ²COPPERLIST¹ *****************************************************************
  731.  
  732. COPPER1    DC.W    $0106,$0000,$01FC,$0000
  733.     DC.W    $008E,$2C81,$0090,$2CC1
  734.     DC.W    $0092,$0038,$0094,$00D0
  735.     DC.W    $0102,$0000,$0104,$0000
  736.     DC.W    $0108,$0000,$010A,$0000
  737.  
  738.     DC.W    $0180,$0000,$0182,$0BBB
  739.     DC.W    $0184,$0888,$0186,$0000
  740.     DC.W    $0188,$0555,$018A,$0000
  741.     DC.W    $018C,$0000,$018E,$0000
  742.  
  743. PLANES    DC.W    $00E0,$0000,$00E2,$0000
  744.     DC.W    $00E4,$0000,$00E6,$0000
  745.     DC.W    $00E8,$0000,$00EA,$0000
  746.     DC.W    $00EC,$0000,$00EE,$0000
  747.     DC.W    $00F0,$0000,$00F2,$0000
  748.     DC.W    $3001,$FF00
  749. NUMBER    DC.W    $0100,$0200
  750.  
  751. RASTER    BLK.W    [8*170],$0000
  752.  
  753.     DC.W    $FFE1,$FFFE,$2901,$FF00
  754.     DC.W    $0100,$0200
  755. ADRESS2    DC.W    $0084,$0000    ; ³ADDRESS¹
  756.     DC.W    $0086,$0000
  757.     DC.W    $008A,$0000    ; ³RESTART COPPERLIST (CLEAR STROBE)¹
  758.     DC.W    $FFFF,$FFFE
  759.  
  760. ** ²SCREEN¹ *********************************************************************
  761.  
  762. SCREEN1    BLK.B    [320/8*1280],$00
  763. SCREEN2    BLK.B    [320/8*1280],$00
  764.  
  765.     SECTION    TABLES,DATA_F
  766.  
  767. SIN_TABLE
  768.     DC.W     0
  769.     DC.W     201
  770.     DC.W     402
  771.     DC.W     603
  772.     DC.W     803
  773.     DC.W     1004
  774.     DC.W     1205
  775.     DC.W     1405
  776.     DC.W     1605 
  777.     DC.W     1805
  778.     DC.W     2005
  779.     DC.W     2204 
  780.     DC.W     2404
  781.     DC.W     2602
  782.     DC.W     2801 
  783.     DC.W     2998
  784.     DC.W     3196
  785.     DC.W     3393 
  786.     DC.W     3589
  787.     DC.W     3785
  788.     DC.W     3980 
  789.     DC.W     4175
  790.     DC.W     4369
  791.     DC.W     4563 
  792.     DC.W     4756
  793.     DC.W     4948
  794.     DC.W     5139 
  795.     DC.W     5329
  796.     DC.W     5519
  797.     DC.W     5708 
  798.     DC.W     5896
  799.     DC.W     6083
  800.     DC.W     6269 
  801.     DC.W     6455
  802.     DC.W     6639
  803.     DC.W     6822 
  804.     DC.W     7005
  805.     DC.W     7186
  806.     DC.W     7366 
  807.     DC.W     7545
  808.     DC.W     7723 
  809.     DC.W     7900 
  810.     DC.W     8075
  811.     DC.W     8249 
  812.     DC.W     8423 
  813.     DC.W     8594
  814.     DC.W     8765 
  815.     DC.W     8934 
  816.     DC.W     9102 
  817.     DC.W     9268 
  818.     DC.W     9434 
  819.     DC.W     9597 
  820.     DC.W     9759 
  821.     DC.W     9920 
  822.     DC.W     10079 
  823.     DC.W     10237 
  824.     DC.W     10393 
  825.     DC.W     10548 
  826.     DC.W     10701 
  827.     DC.W     10853 
  828.     DC.W     11002 
  829.     DC.W     11150 
  830.     DC.W     11297 
  831.     DC.W     11442 
  832.     DC.W     11585 
  833.     DC.W     11726
  834.     DC.W     11866 
  835.     DC.W     12003 
  836.     DC.W     12139 
  837.     DC.W     12273 
  838.     DC.W     12406 
  839.     DC.W     12536
  840.     DC.W     12665 
  841.     DC.W     12791 
  842.     DC.W     12916 
  843.     DC.W     13038 
  844.     DC.W     13159 
  845.     DC.W     13278 
  846.     DC.W     13395 
  847.     DC.W     13510 
  848.     DC.W     13622 
  849.     DC.W     13733 
  850.     DC.W     13842 
  851.     DC.W     13948 
  852.     DC.W     14053 
  853.     DC.W     14155 
  854.     DC.W     14255 
  855.     DC.W     14353 
  856.     DC.W     14449 
  857.     DC.W     14543 
  858.     DC.W     14634 
  859.     DC.W     14723
  860.     DC.W     14810 
  861.     DC.W     14895 
  862.     DC.W     14978 
  863.     DC.W     15058 
  864.     DC.W     15136 
  865.     DC.W     15212
  866.     DC.W     15286 
  867.     DC.W     15357 
  868.     DC.W     15426 
  869.     DC.W     15492 
  870.     DC.W     15557 
  871.     DC.W     15618 
  872.     DC.W     15678 
  873.     DC.W     15735 
  874.     DC.W     15790 
  875.     DC.W     15842 
  876.     DC.W     15892 
  877.     DC.W     15940 
  878.     DC.W     15985 
  879.     DC.W     16028 
  880.     DC.W     16069 
  881.     DC.W     16107 
  882.     DC.W     16142 
  883.     DC.W     16175 
  884.     DC.W     16206 
  885.     DC.W     16234
  886.     DC.W     16260 
  887.     DC.W     16284 
  888.     DC.W     16305 
  889.     DC.W     16323 
  890.     DC.W     16339 
  891.     DC.W     16353
  892.     DC.W     16364 
  893.     DC.W     16372 
  894.     DC.W     16379 
  895. COS_TABLE
  896.     DC.W     16382 
  897.     DC.W     16384 
  898.     DC.W     16382 
  899.     DC.W     16379 
  900.     DC.W     16372 
  901.     DC.W     16364 
  902.     DC.W     16353 
  903.     DC.W     16339 
  904.     DC.W     16323 
  905.     DC.W     16305 
  906.     DC.W     16284 
  907.     DC.W     16260 
  908.     DC.W     16234 
  909.     DC.W     16206 
  910.     DC.W     16175 
  911.     DC.W     16142
  912.     DC.W     16107 
  913.     DC.W     16069 
  914.     DC.W     16028 
  915.     DC.W     15985 
  916.     DC.W     15940 
  917.     DC.W     15892
  918.     DC.W     15842 
  919.     DC.W     15790 
  920.     DC.W     15735 
  921.     DC.W     15678 
  922.     DC.W     15618 
  923.     DC.W     15557 
  924.     DC.W     15492 
  925.     DC.W     15426 
  926.     DC.W     15357 
  927.     DC.W     15286 
  928.     DC.W     15212 
  929.     DC.W     15136 
  930.     DC.W     15058 
  931.     DC.W     14978 
  932.     DC.W     14895 
  933.     DC.W     14810 
  934.     DC.W     14723 
  935.     DC.W     14634 
  936.     DC.W     14543 
  937.     DC.W     14449
  938.     DC.W     14353 
  939.     DC.W     14255 
  940.     DC.W     14155 
  941.     DC.W     14053 
  942.     DC.W     13948 
  943.     DC.W     13842
  944.     DC.W     13733 
  945.     DC.W     13622 
  946.     DC.W     13510 
  947.     DC.W     13395 
  948.     DC.W     13278 
  949.     DC.W     13159 
  950.     DC.W     13038 
  951.     DC.W     12916 
  952.     DC.W     12791 
  953.     DC.W     12665 
  954.     DC.W     12536 
  955.     DC.W     12406 
  956.     DC.W     12273 
  957.     DC.W     12139 
  958.     DC.W     12003 
  959.     DC.W     11866 
  960.     DC.W     11726 
  961.     DC.W     11585 
  962.     DC.W     11442 
  963.     DC.W     11297
  964.     DC.W     11150 
  965.     DC.W     11002 
  966.     DC.W     10853 
  967.     DC.W     10701 
  968.     DC.W     10548 
  969.     DC.W     10393
  970.     DC.W     10237 
  971.     DC.W     10079 
  972.     DC.W     9920 
  973.     DC.W     9759 
  974.     DC.W     9597 
  975.     DC.W     9434 
  976.     DC.W     9268 
  977.     DC.W     9102 
  978.     DC.W     8934 
  979.     DC.W     8765 
  980.     DC.W     8594 
  981.     DC.W     8423 
  982.     DC.W     8249 
  983.     DC.W     8075 
  984.     DC.W     7900 
  985.     DC.W     7723 
  986.     DC.W     7545 
  987.     DC.W     7366 
  988.     DC.W     7186 
  989.     DC.W     7005
  990.     DC.W     6822 
  991.     DC.W     6639 
  992.     DC.W     6455 
  993.     DC.W     6269 
  994.     DC.W     6083 
  995.     DC.W     5896
  996.     DC.W     5708 
  997.     DC.W     5519 
  998.     DC.W     5329 
  999.     DC.W     5139 
  1000.     DC.W     4948 
  1001.     DC.W     4756 
  1002.     DC.W     4563 
  1003.     DC.W     4369 
  1004.     DC.W     4175 
  1005.     DC.W     3980 
  1006.     DC.W     3785 
  1007.     DC.W     3589 
  1008.     DC.W     3393 
  1009.     DC.W     3196 
  1010.     DC.W     2998 
  1011.     DC.W     2801 
  1012.     DC.W     2602 
  1013.     DC.W     2404 
  1014.     DC.W     2204 
  1015.     DC.W     2005
  1016.     DC.W     1805 
  1017.     DC.W     1605 
  1018.     DC.W     1405 
  1019.     DC.W     1205 
  1020.     DC.W     1004 
  1021.     DC.W     803
  1022.     DC.W     603 
  1023.     DC.W     402 
  1024.     DC.W     201 
  1025.     DC.W    -1 
  1026.     DC.W    -202 
  1027.     DC.W    -403 
  1028.     DC.W    -604 
  1029.     DC.W    -804 
  1030.     DC.W    -1005 
  1031.     DC.W    -1206 
  1032.     DC.W    -1406 
  1033.     DC.W    -1606 
  1034.     DC.W    -1806 
  1035.     DC.W    -2006 
  1036.     DC.W    -2205 
  1037.     DC.W    -2405 
  1038.     DC.W    -2603 
  1039.     DC.W    -2802 
  1040.     DC.W    -2999 
  1041.     DC.W    -3197
  1042.     DC.W    -3394 
  1043.     DC.W    -3590 
  1044.     DC.W    -3786 
  1045.     DC.W    -3981 
  1046.     DC.W    -4176 
  1047.     DC.W    -4370
  1048.     DC.W    -4564 
  1049.     DC.W    -4757 
  1050.     DC.W    -4949 
  1051.     DC.W    -5140 
  1052.     DC.W    -5330 
  1053.     DC.W    -5520 
  1054.     DC.W    -5709 
  1055.     DC.W    -5897 
  1056.     DC.W    -6084 
  1057.     DC.W    -6270 
  1058.     DC.W    -6456 
  1059.     DC.W    -6640 
  1060.     DC.W    -6823 
  1061.     DC.W    -7006 
  1062.     DC.W    -7187 
  1063.     DC.W    -7367 
  1064.     DC.W    -7546 
  1065.     DC.W    -7724 
  1066.     DC.W    -7901 
  1067.     DC.W    -8076
  1068.     DC.W    -8250 
  1069.     DC.W    -8424 
  1070.     DC.W    -8595 
  1071.     DC.W    -8766 
  1072.     DC.W    -8935 
  1073.     DC.W    -9103
  1074.     DC.W    -9269 
  1075.     DC.W    -9435 
  1076.     DC.W    -9598 
  1077.     DC.W    -9760 
  1078.     DC.W    -9921 
  1079.     DC.W    -10080 
  1080.     DC.W    -10238 
  1081.     DC.W    -10394 
  1082.     DC.W    -10549 
  1083.     DC.W    -10702 
  1084.     DC.W    -10854 
  1085.     DC.W    -11003 
  1086.     DC.W    -11151 
  1087.     DC.W    -11298 
  1088.     DC.W    -11443 
  1089.     DC.W    -11586 
  1090.     DC.W    -11727 
  1091.     DC.W    -11867 
  1092.     DC.W    -12004 
  1093.     DC.W    -12140
  1094.     DC.W    -12274 
  1095.     DC.W    -12407 
  1096.     DC.W    -12537 
  1097.     DC.W    -12666 
  1098.     DC.W    -12792 
  1099.     DC.W    -12917
  1100.     DC.W    -13039 
  1101.     DC.W    -13160 
  1102.     DC.W    -13279 
  1103.     DC.W    -13396 
  1104.     DC.W    -13511 
  1105.     DC.W    -13623 
  1106.     DC.W    -13734 
  1107.     DC.W    -13843 
  1108.     DC.W    -13949 
  1109.     DC.W    -14054 
  1110.     DC.W    -14156 
  1111.     DC.W    -14256 
  1112.     DC.W    -14354 
  1113.     DC.W    -14450 
  1114.     DC.W    -14544 
  1115.     DC.W    -14635 
  1116.     DC.W    -14724 
  1117.     DC.W    -14811 
  1118.     DC.W    -14896 
  1119.     DC.W    -14979
  1120.     DC.W    -15059 
  1121.     DC.W    -15137 
  1122.     DC.W    -15213 
  1123.     DC.W    -15287 
  1124.     DC.W    -15358 
  1125.     DC.W    -15427
  1126.     DC.W    -15493 
  1127.     DC.W    -15558 
  1128.     DC.W    -15619 
  1129.     DC.W    -15679 
  1130.     DC.W    -15736 
  1131.     DC.W    -15791 
  1132.     DC.W    -15843 
  1133.     DC.W    -15893 
  1134.     DC.W    -15941 
  1135.     DC.W    -15986 
  1136.     DC.W    -16029 
  1137.     DC.W    -16070 
  1138.     DC.W    -16108 
  1139.     DC.W    -16143 
  1140.     DC.W    -16176 
  1141.     DC.W    -16207 
  1142.     DC.W    -16235 
  1143.     DC.W    -16261 
  1144.     DC.W    -16285 
  1145.     DC.W    -16306
  1146.     DC.W    -16324 
  1147.     DC.W    -16340 
  1148.     DC.W    -16354 
  1149.     DC.W    -16365 
  1150.     DC.W    -16373 
  1151.     DC.W    -16380
  1152.     DC.W    -16383 
  1153.     DC.W    -16384 
  1154.     DC.W    -16383 
  1155.     DC.W    -16380 
  1156.     DC.W    -16373 
  1157.     DC.W    -16365 
  1158.     DC.W    -16354 
  1159.     DC.W    -16340 
  1160.     DC.W    -16324 
  1161.     DC.W    -16306 
  1162.     DC.W    -16285 
  1163.     DC.W    -16261 
  1164.     DC.W    -16235 
  1165.     DC.W    -16207 
  1166.     DC.W    -16176 
  1167.     DC.W    -16143 
  1168.     DC.W    -16108 
  1169.     DC.W    -16070 
  1170.     DC.W    -16029 
  1171.     DC.W    -15986
  1172.     DC.W    -15941 
  1173.     DC.W    -15893 
  1174.     DC.W    -15843 
  1175.     DC.W    -15791 
  1176.     DC.W    -15736 
  1177.     DC.W    -15679
  1178.     DC.W    -15619 
  1179.     DC.W    -15558 
  1180.     DC.W    -15493 
  1181.     DC.W    -15427 
  1182.     DC.W    -15358 
  1183.     DC.W    -15287 
  1184.     DC.W    -15213 
  1185.     DC.W    -15137 
  1186.     DC.W    -15059 
  1187.     DC.W    -14979 
  1188.     DC.W    -14896 
  1189.     DC.W    -14811 
  1190.     DC.W    -14724 
  1191.     DC.W    -14635 
  1192.     DC.W    -14544 
  1193.     DC.W    -14450 
  1194.     DC.W    -14354 
  1195.     DC.W    -14256 
  1196.     DC.W    -14156 
  1197.     DC.W    -14054
  1198.     DC.W    -13949 
  1199.     DC.W    -13843 
  1200.     DC.W    -13734 
  1201.     DC.W    -13623 
  1202.     DC.W    -13511 
  1203.     DC.W    -13396
  1204.     DC.W    -13279 
  1205.     DC.W    -13160 
  1206.     DC.W    -13039 
  1207.     DC.W    -12917 
  1208.     DC.W    -12792 
  1209.     DC.W    -12666 
  1210.     DC.W    -12537 
  1211.     DC.W    -12407 
  1212.     DC.W    -12274 
  1213.     DC.W    -12140 
  1214.     DC.W    -12004 
  1215.     DC.W    -11867 
  1216.     DC.W    -11727 
  1217.     DC.W    -11586 
  1218.     DC.W    -11443 
  1219.     DC.W    -11298 
  1220.     DC.W    -11151 
  1221.     DC.W    -11003 
  1222.     DC.W    -10854 
  1223.     DC.W    -10702
  1224.     DC.W    -10549 
  1225.     DC.W    -10394 
  1226.     DC.W    -10238 
  1227.     DC.W    -10080 
  1228.     DC.W    -9921 
  1229.     DC.W    -9760
  1230.     DC.W    -9598 
  1231.     DC.W    -9435 
  1232.     DC.W    -9269 
  1233.     DC.W    -9103 
  1234.     DC.W    -8935 
  1235.     DC.W    -8766 
  1236.     DC.W    -8595 
  1237.     DC.W    -8424 
  1238.     DC.W    -8250 
  1239.     DC.W    -8076 
  1240.     DC.W    -7901 
  1241.     DC.W    -7724 
  1242.     DC.W    -7546 
  1243.     DC.W    -7367 
  1244.     DC.W    -7187 
  1245.     DC.W    -7006 
  1246.     DC.W    -6823 
  1247.     DC.W    -6640 
  1248.     DC.W    -6456 
  1249.     DC.W    -6270
  1250.     DC.W    -6084 
  1251.     DC.W    -5897 
  1252.     DC.W    -5709 
  1253.     DC.W    -5520 
  1254.     DC.W    -5330 
  1255.     DC.W    -5140
  1256.     DC.W    -4949 
  1257.     DC.W    -4757 
  1258.     DC.W    -4564 
  1259.     DC.W    -4370 
  1260.     DC.W    -4176 
  1261.     DC.W    -3981 
  1262.     DC.W    -3786 
  1263.     DC.W    -3590 
  1264.     DC.W    -3394 
  1265.     DC.W    -3197 
  1266.     DC.W    -2999 
  1267.     DC.W    -2802 
  1268.     DC.W    -2603 
  1269.     DC.W    -2405 
  1270.     DC.W    -2205 
  1271.     DC.W    -2006 
  1272.     DC.W    -1806 
  1273.     DC.W    -1606 
  1274.     DC.W    -1406 
  1275.     DC.W    -1206
  1276.     DC.W    -1005 
  1277.     DC.W    -804 
  1278.     DC.W    -604 
  1279.     DC.W    -403 
  1280.     DC.W    -202 
  1281.     DC.W    -1
  1282.     DC.W     201 
  1283.     DC.W     402 
  1284.     DC.W     603 
  1285.     DC.W     803 
  1286.     DC.W     1004 
  1287.     DC.W     1205 
  1288.     DC.W     1405 
  1289.     DC.W     1605 
  1290.     DC.W     1805 
  1291.     DC.W     2005 
  1292.     DC.W     2204 
  1293.     DC.W     2404 
  1294.     DC.W     2602 
  1295.     DC.W     2801 
  1296.     DC.W     2998 
  1297.     DC.W     3196 
  1298.     DC.W     3393 
  1299.     DC.W     3589 
  1300.     DC.W     3785 
  1301.     DC.W     3980
  1302.     DC.W     4175 
  1303.     DC.W     4369 
  1304.     DC.W     4563 
  1305.     DC.W     4756 
  1306.     DC.W     4948 
  1307.     DC.W     5139
  1308.     DC.W     5329 
  1309.     DC.W     5519 
  1310.     DC.W     5708 
  1311.     DC.W     5896 
  1312.     DC.W     6083 
  1313.     DC.W     6269 
  1314.     DC.W     6455 
  1315.     DC.W     6639 
  1316.     DC.W     6822 
  1317.     DC.W     7005 
  1318.     DC.W     7186 
  1319.     DC.W     7366 
  1320.     DC.W     7545 
  1321.     DC.W     7723 
  1322.     DC.W     7900 
  1323.     DC.W     8075 
  1324.     DC.W     8249 
  1325.     DC.W     8423 
  1326.     DC.W     8594 
  1327.     DC.W     8765
  1328.     DC.W     8934 
  1329.     DC.W     9102 
  1330.     DC.W     9268 
  1331.     DC.W     9434 
  1332.     DC.W     9597 
  1333.     DC.W     9759
  1334.     DC.W     9920 
  1335.     DC.W     10079 
  1336.     DC.W     10237 
  1337.     DC.W     10393 
  1338.     DC.W     10548 
  1339.     DC.W     10701 
  1340.     DC.W     10853 
  1341.     DC.W     11002 
  1342.     DC.W     11150 
  1343.     DC.W     11297 
  1344.     DC.W     11442 
  1345.     DC.W     11585 
  1346.     DC.W     11726 
  1347.     DC.W     11866 
  1348.     DC.W     12003 
  1349.     DC.W     12139 
  1350.     DC.W     12273 
  1351.     DC.W     12406 
  1352.     DC.W     12536 
  1353.     DC.W     12665
  1354.     DC.W     12791 
  1355.     DC.W     12916 
  1356.     DC.W     13038 
  1357.     DC.W     13159 
  1358.     DC.W     13278 
  1359.     DC.W     13395
  1360.     DC.W     13510 
  1361.     DC.W     13622 
  1362.     DC.W     13733 
  1363.     DC.W     13842 
  1364.     DC.W     13948 
  1365.     DC.W     14053 
  1366.     DC.W     14155 
  1367.     DC.W     14255 
  1368.     DC.W     14353 
  1369.     DC.W     14449 
  1370.     DC.W     14543 
  1371.     DC.W     14634 
  1372.     DC.W     14723 
  1373.     DC.W     14810 
  1374.     DC.W     14895 
  1375.     DC.W     14978 
  1376.     DC.W     15058 
  1377.     DC.W     15136 
  1378.     DC.W     15212 
  1379.     DC.W     15286
  1380.     DC.W     15357 
  1381.     DC.W     15426 
  1382.     DC.W     15492 
  1383.     DC.W     15557 
  1384.     DC.W     15618 
  1385.     DC.W     15678
  1386.     DC.W     15735 
  1387.     DC.W     15790 
  1388.     DC.W     15842 
  1389.     DC.W     15892 
  1390.     DC.W     15940 
  1391.     DC.W     15985 
  1392.     DC.W     16028 
  1393.     DC.W     16069 
  1394.     DC.W     16107 
  1395.     DC.W     16142 
  1396.     DC.W     16175 
  1397.     DC.W     16206 
  1398.     DC.W     16234 
  1399.     DC.W     16260 
  1400.     DC.W     16284 
  1401.     DC.W     16305 
  1402.     DC.W     16323 
  1403.     DC.W     16339 
  1404.     DC.W     16353 
  1405.     DC.W     16364
  1406.     DC.W     16372 
  1407.     DC.W     16379 
  1408.     DC.W     16382 
  1409. *³***********************************¹